       IDENTIFICATION DIVISION.
       PROGRAM-ID.  MAEST002.
       AUTHOR. NELLIUD D. TORRES.
       DATE-WRITTEN. 4 DE FEBRERO DE 1992.
       DATE-COMPILED.
      *INSTALLATION. UPR.
       SECURITY.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. VAX-8530.
       OBJECT-COMPUTER. VAX-8530.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
 
           SELECT ALQUILERES-FILE-IDX ASSIGN TO DISK
           ORGANIZATION IS INDEXED
           ACCESS MODE IS DYNAMIC
           RECORD KEY IS ALQUILER-IDX
           ALTERNATE RECORD KEY IS ALQ-CHOFER WITH DUPLICATES
           ALTERNATE RECORD KEY IS ALQ-NRO-DOC WITH DUPLICATES
           FILE STATUS IS WSS-FS-FILE-ALQ.

           SELECT ORDEN ASSIGN TO SORT.
       DATA DIVISION.
       FILE SECTION.
 
       FD  ALQUILERES-FILE-IDX LABEL RECORDS STANDARD
            VALUE OF FILE-ID IS "TP2.IDX".
       01  ALQUILERES-RECORD-IDX.
         03  ALQUILER-IDX.
           05 ALQ-PATENTE PIC X(6).
           05 ALQ-FECHA PIC 9(8).
         03  ALQ-TIPO-DOC PIC X.
         03  ALQ-NRO-DOC PIC X(20).
         03  ALQ-IMPORTE PIC 9(4),99.
         03  ALQ-CHOFER PIC X(7).
         03  ALQ-ESTADO PIC X.
       SD    ORDEN.
        01    REGORD.
         02  ORD-FECHA.
             03 ORD-DD PIC 99.
             03 ORD-MM PIC 99.
             03 ORD-AA PIC 9999.
         02  ORD-CHOFER     PIC X(7).
         02  ORD-TIPO-DOC    PIC X.
         02  ORD-CLIENTE    PIC X(20).
         02  ORD-ESTADO     PIC X.
         02  ORD-PATENTE    PIC X(6).
         02  ORD-IMPORTE    PIC 9(4)v99.
		 
       WORKING-STORAGE SECTION.

       01   LINEA.
         02   L-PATENTE   PIC X(6).
         02   L-FECHA    PIC 9(8).
         02   L-CHOFER   PIC X(7).
         02   L-ESTADO   PIC X.
         02   L-CLIENTE  PIC x(20).
       01   OP   PIC X.
       
       01  WORK-AREAS.
         02 EOF                  PIC 9    VALUE ZERO.
         02 TOTAL-READ           PIC 9999 VALUE ZEROES.
         02 TOTAL-PRINTED        PIC 9999 VALUE ZEROES.
         02 LINE-CTR             PIC 99   VALUE 99.
         02 PAGE-CTR             PIC 99   VALUE ZEROES.
         02 WSS-FS-FILE-ALQ      PIC XX.
            88 WSS-88-OK-FILE-ALQ         VALUE ZEROES.
            88 WSS-88-EOF-FILE-ALQ        VALUE '10'.
         02 WSS-FS-FILE-CHO      PIC XX.
            88 WSS-88-OK-FILE-CHO         VALUE ZEROES.
            88 WSS-88-EOF-FILE-CHO        VALUE '10'.
         02 WSS-FS-FILE-RECH      PIC XX.
            88 WSS-88-OK-FILE-RECH         VALUE ZEROES.
            88 WSS-88-EOF-FILE-RECH        VALUE '10'.
         02 WSS-FS-FILE-ALQ-ORD      PIC XX.
            88 WSS-88-OK-FILE-ALQ-ORD      VALUE ZEROES.
            88 WSS-88-EOF-FILE-ALQ-ORD     VALUE '10'.

         01                              PIC X(1).
            88  WS-CAMBIO-LA-FECHA       VALUE "Y" WHEN FALSE "N".
         01                              PIC X(1).
            88  WS-CHOFER-VALIDO       VALUE "Y" WHEN FALSE "N".
         01                              PIC X(1).
            88  WS-CAMBIO-EL-CHOFER       VALUE "Y" WHEN FALSE "N".            
         01                              PIC X(1).
            88  WS-ENCONTRE-EL-CHOFER       VALUE "Y" WHEN FALSE "N".  
         01                              PIC X(1).
            88  WSS-88-EOF-FILE-ORD       VALUE "Y" WHEN FALSE "N".              

         01 WSS-FS-FILE-ACPT             PIC X(02).
            88 WSS-88-OK-FILE-ACPT       VALUE ZEROES.
            
         01 WS-CHOFER-KEY.                        
           03 WS-CHOFER-NRO-LEGAJO                PIC X(7).
           03 WS-CHOFER-FECHA-DESDE                  PIC 9(8).
             
         01 FECHA. 
            02 AA PIC 99. 
            02 MM PIC 99. 
            02 DD PIC 99.
         01 FECHA-TEMP.  
            02 DD PIC 99. 
            02 MM PIC 99. 
            02 AA PIC 9999.
         01 WS-TOTAL-GENERAL    PIC 9(10)v99 VALUE ZEROS.
         01 WS-NRO-PAGINA    PIC 9(4) VALUE ZEROS.
         01 WS-CANT-LINEAS    PIC 99 VALUE 60.
         01 WS-TOTAL-POR-FECHA    PIC 9(10)v99 VALUE ZEROS.
         01 WS-TOTAL-POR-CHOFER    PIC 9(10)v99 VALUE ZEROS.
         01 WX-RUTINA.
            05 WX-REG-CLIENTE.
               07 WX-CLI-NUMERO                PIC X(8).
               07 WX-CLI-FEC-ALTA                  PIC 9(8).
               07 WX-CLI-TELEFONO               PIC X(20).
               07 WX-CLI-DIRECCION                PIC X(30).
               07 WX-CLI-DOCUMENTO               PIC X(20).
            05 WX-RETORNO        PIC X(2). 
         01 RUTINA              PIC X(6) VALUE 'BUSCLI'.
         01 CANTI-LECTURAS PIC 9(2) VALUE ZEROS.


       PROCEDURE DIVISION.

       0100-BEGIN.
           SORT ORDEN
           ON ASCENDING ORD-FECHA, ORD-CHOFER, ORD-CLIENTE, 
                        ORD-ESTADO, ORD-PATENTE
           INPUT PROCEDURE IS CARGAR
           OUTPUT PROCEDURE IS SALIDA.
           STOP RUN.
           
       CARGAR.
           OPEN INPUT ALQUILERES-FILE-IDX.
           PERFORM 0001-LEER UNTIL WSS-88-EOF-FILE-ALQ.
           CLOSE ALQUILERES-FILE-IDX.

       CERRAR-ARCHIVO.
           DISPLAY WSS-FS-FILE-ALQ.

       0001-LEER.
           READ ALQUILERES-FILE-IDX NEXT RECORD 
                at end CONTINUE.
           EVALUATE TRUE
               WHEN WSS-88-OK-FILE-ALQ 
                    PERFORM 1000-PRE-PROCESAR-LINEA
               WHEN WSS-88-EOF-FILE-ALQ
                    CONTINUE
               WHEN OTHER
                    DISPLAY 'ERROR'
                    STOP RUN
           END-EVALUATE.

       1000-PRE-PROCESAR-LINEA.
           MOVE ALQ-PATENTE TO ORD-PATENTE.
           MOVE ALQ-FECHA TO ORD-FECHA.
           MOVE ALQ-CHOFER TO ORD-CHOFER.
           MOVE ALQ-ESTADO TO ORD-ESTADO.
           MOVE ALQ-NRO-DOC TO ORD-CLIENTE.
           MOVE ALQ-TIPO-DOC TO ORD-TIPO-DOC.
           MOVE ALQ-IMPORTE TO ORD-IMPORTE.
           RELEASE REGORD.
           
       SALIDA.
	       PERFORM 1003-ESC-LEER.
		   
       1003-ESC-LEER.
           RETURN ORDEN
              AT END
                SET WSS-88-EOF-FILE-ORD TO TRUE
              NOT AT END
				PERFORM 0033-VER-QUE-MIERDA-HAGO.
				
       0033-VER-QUE-MIERDA-HAGO.
           EVALUATE TRUE
               WHEN WSS-88-EOF-FILE-ORD
               DISPLAY "FIN ARCHIVO"
                CONTINUE
               WHEN ORD-ESTADO = "R"
               DISPLAY "RECHAZADO"
				DISPLAY REGORD
                PERFORM 1003-ESC-LEER
                CONTINUE
               WHEN ORD-ESTADO = "T"
                DISPLAY "TERMINADO"
				DISPLAY REGORD
                PERFORM 1003-ESC-LEER
               WHEN ORD-ESTADO = "P"
               DISPLAY "PROCESAR"
	            DISPLAY REGORD
                DISPLAY "LO QUE TENGO QUE HACER"
				PERFORM 1003-ESC-LEER
               WHEN OTHER
                DISPLAY 'ERROR'
                STOP RUN
           END-EVALUATE.